library(tidyverse)## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──## ✓ ggplot2 3.3.4 ✓ purrr 0.3.4
## ✓ tibble 3.1.2 ✓ dplyr 1.0.7
## ✓ tidyr 1.1.3 ✓ stringr 1.4.0
## ✓ readr 1.4.0 ✓ forcats 0.5.1## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()library(plotly)##
## Attaching package: 'plotly'## The following object is masked from 'package:ggplot2':
##
## last_plot## The following object is masked from 'package:stats':
##
## filter## The following object is masked from 'package:graphics':
##
## layoutThe following is a interactive package that I wanted to try and learn. It does not require all the needs that R Shiny does, however, this also means that this package is much simpler. Since this was my first attempts to learning this package much of the code was modified to my needs for the coffee data. The site that were used are the following two: ~1 https://plotly-r.com/index.html ~2 https://plotly.com/r/
##Interaction Visuals##
fig = coffee %>%
plot_ly(
x = ~total_cup_points,
y = ~cupper_points,
color = ~color,
colors = "Accent",
text = ~variety,
hoverinfo = "text",
type = 'scatter',
mode = 'markers'
)
figfig = coffee %>%
plot_ly(
x = ~total_cup_points,
y = ~cupper_points,
split = ~processing_method,
color = ~color,
colors = "Accent",
text = ~variety,
hoverinfo = "text",
type = 'scatter',
mode = 'markers'
)
figfig = coffee %>%
plot_ly(
x = ~total_cup_points,
y = ~flavor,
split = ~color,
color = ~processing_method,
colors = "Accent",
text = ~variety,
hoverinfo = "text",
type = 'scatter',
mode = 'markers'
)
figfig = coffee %>%
plot_ly(
x = ~total_cup_points,
y = ~clean_cup,
split = ~color,
color = ~processing_method,
colors = "Accent",
text = ~variety,
hoverinfo = "text",
type = 'scatter',
mode = 'markers'
#showlegend=FALSE
)
fig